;; copy from cpnanopass of ChezScheme
(define-syntax delay
  (syntax-rules ()
    [(_ expr) (lambda () expr)]))

(define (force x)
  (if (procedure? x) (x) x))
